home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / curdtgm.gf < prev    next >
Encoding:
Text File  |  1994-02-17  |  299 b   |  15 lines
  1. function curdtgm
  2. *
  3. *  convert current time to monthly dtg 
  4. *
  5.   moname='JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC'
  6.   'q time'
  7.   t1=subwrd(result,3)
  8.   iyr=substr(t1,11,2)
  9.   nmo=substr(t1,6,3)
  10.   ida=substr(t1,4,2)
  11.   i=1
  12.   while (nmo!=subwrd(moname,i));i=i+1;endwhile
  13.   imo=i
  14. return (iyr*100+imo)
  15.